home *** CD-ROM | disk | FTP | other *** search
/ Hasbro Interactive: 2000 Press Disc (USA) / Hasbro Interactive - 2000 Press Disc (USA).bin / thumbs8 / kids.dir / 00007_Script_7 < prev    next >
Text File  |  2000-05-06  |  732b  |  26 lines
  1. -- Generic Button Handler
  2. property spriteNum
  3.  
  4. on mouseUp
  5.   set cDriveLetter = char 1 of getOSDirectory()
  6.   if (sprite(2).type) then  -- if sprite 2 is art
  7.     set defaultFileName = sprite(2).member.name
  8.     
  9.   else  --otherwise export text in sprite 4
  10.     
  11.     set defaultFileName = sprite(4).member.name
  12.     
  13.   end if
  14.   
  15.   
  16.   set newFilePathName = doFileSaveDialog("Save As", cDriveLetter & ":\My Documents\"& defaultFileName)
  17.   if (newFilePathName = EMPTY) then return()  -- Error occurred & user was alerted, or user pressed Cancel.
  18.   
  19.   -- Guarantee: user wants to save, and we have a valid, non-occupied filePathName.
  20.   
  21.   fileCopy(the moviePath & "Masters\"& defaultFileName,newFilePathName)
  22.   
  23. end
  24.  
  25.  
  26.